home *** CD-ROM | disk | FTP | other *** search
- program read_boot; {Read the partition boot sector on drive C:}
- uses dos;
- var
- boot :array[0..511] of byte;
- r :registers;
- fout :file;
- begin
- r.ax:=$0201;
- r.bx:=ofs(boot);
- r.es:=seg(boot);
- r.dx:=$0080;
- r.cx:=$0001;
- intr($13,r);
- assign(fout,'boot.sec');
- rewrite(fout,512);
- blockwrite(fout,boot,1);
- close(fout);
- end.